100 REM   ***  ANALOGUHR ***
110 REM   MARC MICHAELIS
120 REM   PFARRHOEHE 11
130 REM   8507 OBERASBACH
140 REM
150 IFA=0THENA=1:LOAD"UHR PRG.",8,1
160 FORJ=0TO83
170 IFJ=0ORJ=60THENX1=0:Y1=20
180 IFJ=15ORJ=66THENX1=0:Y1=0
190 IFJ=30ORJ=72THENX1=20:Y1=0
200 IFJ=45ORJ=78THENX1=20:Y1=20
210 GOSUB460
220 READX2,Y2
230 GOSUB370
240 W=40960+64*J
250 GOSUB480
260 NEXT
270 FORJ=46336TO46591
280 READA:POKEJ,A
290 NEXT
300 FORJ=832TO880:READA:POKEJ,A:NEXT
310 SYS 832
320 END
330 REM PLOT
340 Q=Y*3+INT(X/8)+832:Q1=2^(7-(X-INT(X/8)*8))
350 POKEQ,PEEK(Q)ORQ1
360 RETURN
370 REM LINIE ZIEHEN (X1,Y1,X2,Y2)
380 IFABS(X2-X1)<5THEN420
390 FORI=X1TOX2STEP(X2-X1)/20
400 Y=INT((Y2-Y1)/(X2-X1)*(I-X1)+Y1)
410 X=INT(I):GOSUB330:NEXT:RETURN
420 FORI=Y1TOY2STEP(Y2-Y1)/20
430 X=INT(((X2-X1)/(Y2-Y1)*(I-Y1)+X1))
440 Y=INT(I):GOSUB330:NEXT:RETURN
450 REM LOESCHEN SPRITE
460 FORI=832TO896:POKEI,0:NEXT:RETURN
470 REM UEBERTRAGEN SPRITE
480 FORI=0TO63:POKEW+I,PEEK(832+I):NEXT:RETURN
490 REM DATA FUER ZEIGER ( X UND Y )
500 DATA0,0,2,0,4,1,6,1,8,2,10,3,12,4,13,5,15,7,16,8,17,10,18,12,19,14,19,16
510 DATA20,18
520 DATA20,0,20,2,19,4,19,6,18,8,17,10,16,12,15,13,13,15,12,16,10,17,8,18,6,19
530 DATA4,19,2,20
540 DATA20,20,18,20,16,19,14,19,12,18,10,17,8,16,7,15,5,13,4,12,3,10,2,8,1,6
550 DATA1,4,0,2
560 DATA0,20,0,18,1,16,1,14,2,12,3,10,4,8,5,7,7,5,8,4,10,3,12,2,14,1,16,1,18,0
570 DATA 0,10,3,10,5,11,7,13,9,15,10,17
580 DATA10,0,10,3,9,5,7,7,5,9,3,10
590 DATA20,10,17,10,15,9,13,7,11,5,10,3
600 DATA 10,20,10,17,11,15,13,13,15,11,17,10
610 REM ZIFFERBLATT SPRITES
620 DATA0,0,255,0,7,8,0,24,8,0,32,0,0,224,85,1,16,37,2,0,85,4,84,0,4,36,0,8
630 DATA84,0,8,0,0,24,0,0,37,64,0,32,128,0,65,64,0,64,0,0,64,0,0,128,0,0,128
640 DATA0,0,128,0,0,138,128,0,239,128,0,0,112,0,0,12,0,0,2,0,0,3,128,0,4,64
650 DATA0,0,32,0,16,16,0,16,8,0,16,4,0,0,4,0,0,6,0,0,169,0,0,161,0,0,160,128
660 DATA0,0,128,0,0,128,0,0,64,0,0,64,0,0,64,0,84,64,200,233,0,8,138,128,0
670 DATA128,0,0,128,0,0,128,0,0,85,80,0,85,80,0,73,80,0,32,0,0,36,0,0,24,0
680 DATA0,8,170,0,8,170,0,4,74,0,2,0,42,1,16,42,0,224,18,0,32,0,0,24,8,0,7
690 DATA8,0,0,255,141,0,85,192,0,84,64,0,0,64,0,0,64,0,0,64,2,160,128,2,160
700 DATA128,2,64,128,0,1,0,0,9,0,0,6,0,40,4,0,40,4,0,16,24,0,0,32,0,4,64,0
710 DATA3,128,0,2,0,0,12,0,0,112,0,0,128,0,0,0
720 REM DATEN FUER ABSPEICHERROUTINE
730 DATA169,54,133,1,162,8,32,186,255,169,9,162,104,160,3,32,189,255,169,64
740 DATA133,251,169,156,133,252,169,251,162,0,160,182,32,216,255,169,55,133
750 DATA1,96,65,78,65,76,79,71,85,72,82